Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_d/mdboutln.zip/AEEMP.DFM/AEEMP.txt

Text File | 1995-11-12 | 5KB | 201 lines

object frmAEEmployee: TfrmAEEmployee
  Left = 431
  Top = 206
  Width = 254
  Height = 206
  Caption = 'Add Employee'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 13
  object pnlAEEmployee: TPanel
    Left = 0
    Top = 0
    Width = 246
    Height = 179
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'pnlAEEmployee'
    TabOrder = 0
    object bxscrlAEEmployee: TScrollBox
      Left = 6
      Top = 6
      Width = 234
      Height = 167
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 180
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 163
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      TabOrder = 0
      object lblEmpNo: TLabel
        Left = 6
        Top = 9
        Width = 62
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'EmpNo'
      end
      object lblLastName: TLabel
        Left = 6
        Top = 31
        Width = 62
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'LastName'
        FocusControl = bxeddbLastName
      end
      object lblFirstName: TLabel
        Left = 6
        Top = 53
        Width = 62
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'FirstName'
        FocusControl = bxeddbFirstName
      end
      object lblPhoneExt: TLabel
        Left = 6
        Top = 75
        Width = 62
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'PhoneExt'
        FocusControl = bxeddbPhoneExt
      end
      object lblHireDate: TLabel
        Left = 6
        Top = 97
        Width = 62
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'HireDate'
        FocusControl = bxeddbHireDate
      end
      object lblSalary: TLabel
        Left = 6
        Top = 119
        Width = 62
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Salary'
        FocusControl = bxeddbSalary
      end
      object lblSupervisor: TLabel
        Left = 6
        Top = 141
        Width = 62
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Supervisor'
        FocusControl = bxeddbSupervisor
      end
      object bxeddbLastName: TDBEdit
        Left = 74
        Top = 28
        Width = 115
        Height = 19
        DataField = 'LastName'
        DataSource = dtasrcAEEmployee
        MaxLength = 0
        TabOrder = 1
      end
      object bxeddbFirstName: TDBEdit
        Left = 74
        Top = 50
        Width = 90
        Height = 19
        DataField = 'FirstName'
        DataSource = dtasrcAEEmployee
        MaxLength = 0
        TabOrder = 2
      end
      object bxeddbPhoneExt: TDBEdit
        Left = 74
        Top = 72
        Width = 26
        Height = 19
        DataField = 'PhoneExt'
        DataSource = dtasrcAEEmployee
        MaxLength = 0
        TabOrder = 3
      end
      object bxeddbHireDate: TDBEdit
        Left = 74
        Top = 94
        Width = 60
        Height = 19
        DataField = 'HireDate'
        DataSource = dtasrcAEEmployee
        MaxLength = 0
        TabOrder = 4
      end
      object bxeddbSalary: TDBEdit
        Left = 74
        Top = 116
        Width = 60
        Height = 19
        DataField = 'Salary'
        DataSource = dtasrcAEEmployee
        MaxLength = 0
        TabOrder = 5
      end
      object bxeddbSupervisor: TDBEdit
        Left = 74
        Top = 138
        Width = 60
        Height = 19
        DataField = 'Supervisor'
        DataSource = dtasrcAEEmployee
        Enabled = False
        MaxLength = 0
        TabOrder = 6
      end
      object btnbitOK: TBitBtn
        Left = 139
        Top = 101
        Width = 89
        Height = 25
        TabOrder = 7
        Kind = bkOK
      end
      object btnbitCancel: TBitBtn
        Left = 139
        Top = 133
        Width = 89
        Height = 25
        TabOrder = 8
        Kind = bkCancel
      end
      object bxeddbEmpNo: TDBEdit
        Left = 74
        Top = 5
        Width = 71
        Height = 20
        DataField = 'EmpNo'
        DataSource = dtasrcAEEmployee
        MaxLength = 0
        TabOrder = 0
      end
    end
  end
  object dtasrcAEEmployee: TDataSource
    Left = 199
    Top = 77
  end
end